home *** CD-ROM | disk | FTP | other *** search
/ SIGGRAPH 2002 Course Notes / SIGGRAPH 2002 - Course Notes - Disc 1.iso / pc / notes / 05 / supplemental_material / RNL_Source / gensup1.sh < prev    next >
Encoding:
Text File  |  1999-01-02  |  632 b   |  18 lines
  1. #
  2. # Arguments to gensup1.sh:
  3. # 1:name 2:base_material 3:top_material
  4. #
  5.  
  6. genworm $2 {$1}a "-0.15*((1-t)*(1-t)) + sin(3.9*t)*(0.2+0.4*(1-t))*sin(3.5*(t-0.3))" "0.05+t" "cos(3.9*t)*(0.2+0.4*(1-t))*sin(3.5*(t-0.3))" "0.05-0.02*t" 15
  7.  
  8. genworm $2 {$1}a "-0.15*((1-t)*(1-t)) + sin(3.9*t+2.094)*(0.2+0.4*(1-t))*sin(3.5*(t-0.3))" "0.05+t" "cos(3.9*t+2.094)*(0.2+0.4*(1-t))*sin(3.5*(t-0.3))" "0.05-0.02*t" 15
  9.  
  10. genworm $2 {$1}a "-0.15*((1-t)*(1-t)) + sin(3.9*t-2.094)*(0.2+0.4*(1-t))*sin(3.5*(t-0.3))" "0.05+t" "cos(3.9*t-2.094)*(0.2+0.4*(1-t))*sin(3.5*(t-0.3))" "0.05-0.02*t" 15
  11.  
  12. echo $3 sphere {$1}ball
  13. echo 0
  14. echo 0
  15. echo 4 0 1.383 0 0.33
  16.  
  17.  
  18.